#vector
rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#compute maximum, minium and summary stats
max(rawdata)
min(rawdata)
summary(rawdata)

#plot rawdata
plot(rawdata, type="b", xlab="time in sec", ylab="CPU")

#plot max, min and mean linessi
abline(h=max(rawdata), v=0)
abline(h=min(rawdata), v=0)
abline(h=mean(variable), v=0)




